home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / m2cmp20 / termio.def < prev    next >
Text File  |  1988-11-19  |  1KB  |  42 lines
  1. DEFINITION MODULE TermIO;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     The procedures in this module are the standard i/o routines used
  7.     by the module TermBase.
  8.  
  9.     The procedures in this module invoke the DOS functions 2, 8 and B
  10.     to perform their functions. For the screen clear (Write(ASCII.FF))
  11.     and Goto functions to work, ANSI.SYS must be installed.
  12. *)
  13.  
  14.  
  15. PROCEDURE Read( VAR ch :CHAR );
  16. (*
  17.     wait until a character is available for reading from the keyboard
  18.     and read it. The character is not echoed on the screen.
  19.  
  20.     ASCII.CR is converted to ASCII.EOL
  21. *)
  22.  
  23. PROCEDURE Write( ch :CHAR );
  24. (*
  25.     write ch to the screen.
  26.     ASCII.FF will cause the screen to be cleared (ANSI.SYS must be installed).
  27.     ASCII.EOL will cause the sequence CR LF to be written
  28.     ASCII.DEL will cause a destructive backspace.
  29. *)
  30.  
  31. PROCEDURE KeyPressed() :BOOLEAN;
  32. (*
  33.     return TRUE if a character is available for reading from
  34.     the keyboard
  35. *)
  36.  
  37. PROCEDURE Goto( line, pos :CARDINAL );
  38. (*
  39.     position the cursor on line/pos.
  40. *)
  41.  
  42. END TermIO.